PC Home 48/Fun Clicp Art 5000.iso/r/mbm/00808_SU-mol co.ls

Text File | 1996-05-11 | 1.6 KB | 55 lines

on molette monPas
  global g1erSprLoc, gBoutons, gMol, gScopeCo0, gScopeCo1, gPosVideo, gPosDebP, gPosDebS0, gPosDebS1, gPosDebE
  if monPas <> 0 then
    set gMol to gMol + integer((monPas / 8) + 1)
    if gMol < 0 then
      set gMol to 9
    end if
    if gMol > 9 then
      set gMol to 0
    end if
    set gPosVideo to gPosVideo + (monPas mod 240)
    set gPosVideo to gPosVideo - (gPosVideo mod 2)
    if gPosVideo > 239 then
      set gPosVideo to gPosVideo - 239
    else
      if gPosVideo < 0 then
        set gPosVideo to 239 + gPosVideo
      end if
    end if
    gBoutons(habille, g1erSprLoc + 14, "BTGMOL " & gMol)
    gScopeCo0(SetTime, gPosDebE + gPosDebS0 + gPosDebP + gPosVideo)
    gScopeCo1(SetTime, gPosDebE + gPosDebS1 + gPosDebP + gPosVideo)
    go(the frame)
  end if
end

on mouseDown
  global gBoutons, g1erSprLoc, gNumSpr, gTraduit, gScopeCo0, gScopeCo1, gPosVideo, gPosDebP, gPosDebS0, gPosDebS1, gPosDebE
  curseur(9)
  set gNumSpr to g1erSprLoc + 12
  set monLocV to the mouseV
  set firstLocH to the mouseH
  set precLocH to firstLocH
  set the text of cast "ZI5" to getAt(gTraduit, 52)
  set gPosVideo to gScopeCo0(GetTime) - gPosDebE - gPosDebS0 - gPosDebP
  repeat while the stillDown = 1
    set monLocH to the mouseH
    set diff to precLocH - monLocH
    if abs(diff) > 3 then
      molette(precLocH - monLocH)
      set precLocH to monLocH
    end if
  end repeat
  set gPosVideo to gScopeCo0(GetTime) - gPosDebE - gPosDebS0 - gPosDebP
end

on mouseUp
  global gSurvolPrec, g1erSprLoc
  if the visible of sprite (g1erSprLoc + 14) = 1 then
    set gSurvolPrec to -1
  else
    pass()
  end if
end